PAGE 
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0001 








*************** **** ****** ****** 


0002 








* 








0003 








* PBS V3N CASSETTE LOAD &.. SAVE 


0004 








* 








C005 








* V3N HAS BEEN MODIFIED TO 


0006 








* INCLUDE CASSETTE LOAD I SAVE 


0007 








* ROUTINES. 


OPERATIONS ON THE 


0008 








* BUFFER POINTERS (CASSETTE <-> 


0009 








* EDITOR) API 


; ALSO PROVIDED. 


0010 








* 








0011 








* REFER 


TO TEE MANUAL 


FOR 


0012 








* ADDITIONAL 


INFORMATION . 


0013 








* 








0014 








******************************* 


0015 








* 








0016 


0200 






EDITOR 


EQU 


$FC67 


PDS EDITOR 


0017 








*EDITOR 


EQU $ 


F400 PIE 


EDITOR 


0013 


0200' 






REEDIT 


EQU 


$FC6F 


PDS EDITOR 


0019 








*REEBIT 


EQU $F402 PIE EDITOR 


0020 








* 








0021 








* OVERLAY CURRENT EXEC 


0022 


0200 








ORG 


$FC14 




0023 








* 








0024 


FC14 


8D 


21 


EXEC 


BSR 


HOME 


CLEAR SCREEN 


0025 


FC16 


8D 


25 




ESR 


CLEAR 




0026 








* 








0027 


FC13 


8D 


73 


EXEC1 


BSR 


CR1 


CRLF 


0028 


FC1A 


BB 


PE71 




JSR 


INPCHR 


GET/DISPLAY CHAR 


0029 


FC1D 


81 


01 




CMPA 


=1 


CTRL-A 


0030 


FC1F 


26 


03 




ME 


EXEC2 




0031 


FC21 


7E 


E300 




JMP 


$E800 


JMP FOR ADDT'L CMKDS 


0032 








* 








0032 


FC24 


81 


05 


EXEC2 


CMPA 


=5 


CTRL-E 


0034 


FC26 


26 


03 




BNE 


EXEC3 




0035 








* JSR USED TC 


) ALLOW JUMP TO PIE 


0036 








* 








0037 


FC23 


ED 


PC67 




JSR 


EDITOR 


EDIT NEW FILE 


0038 








* NOTE: 


ON RETURN, BOTH EDITOR 


0039 








* CATT.S 


FALL 


THRU TO i 


DEBUGGER 


0040 








* 








0041 


FC2B 


81 


12 


EXEC3 


CMPA 


=$12 


CTRL-R 


0042 


PC2D 


26 


03 




BNE 


FXEC4 




0043 


PC2P 


ED 


PC6P 




JSR 


REEDIT 


RE-EDIT OLD FILE 


0044 








* 








O045 


PC32 


81 


54 


EXEC4 


CMPA 


_'m' 


SET UP FOR NEXT 


0046 


PC34 


7E 


PDA1 




JMP 


Ifdai 


COMMAND TEST 


0047 








* 








0048 


PC37 






HOME 


EQU 


$FC37 




0049 


PC37 






CLEAR 


EQU 


$FC3D 




0050 


PC37 






CR1 


EQU 


$FC8D 




0051 


PC37 






INPCHR 


EQU 


$FE71 
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0001 
0002 
0003 
0004 
0005 
00C6 

0007 
OCOS 

0009 
0010 
0011 
0012 
0013 
0014 
0015 
0C16 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
002S 

0029 

0030 
0031 
0032 
0033 
0034 
0035 
0036 

0037 
0033 

0039 
0040 
0041 
0042 

0043 
0044 
0045 
0046 

0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0053 



0200 
0200 
0200 
0200 
0200 
02 00 
02 00 
0200 
0200 
0200 
0200 
0200 
0200 
02 00 
0200 
C200 



0200 
0200 
FDA1 26 OE 



FDA3 

FDA5 

EDA7 

FDA9 

FDAB 

FDAD 

FDAF 

FDB1 

FDB3 



DE 3C 
DF OC 
DE 3E 
DF 20 
DE OE 
DF 22 
20 1D 
81 4C 
26 07 



FDB5 3D 32 
FDB7 BD FB91 
FDBA 20 12 
FDBC 31 53 
FDBE 27 03 
FDCO 7E FE64 



FDC3 DE OC 
FDC5 DF 3C 
FDC7 DE 20 
FDC9 8D 26 
FDCB BD FB2D 



FDCE 36 7C 
FDDO 97 1D 



BUFADR 


EQU 


$C 


BUFEND 


EQU 


$E 


CSRP+1 


EQU 


$1D 


BUFFLO 


EQU 


$20 


BUFFHI 


EQU 


$22 


SCNPTR 


EQU 


$24 


ELKNAM 


EQU 


$33 


BLKN+1 


EQU 


$34 


ACIANO 


EQU 


$33 


ACIA+1 


EQU 


$39 


NOPRNT 


EQU 


$3A 


BFRPTR 


EQU 


$3C 


BFRP+1 


EQU 


$3D 


BFRSZE 


EQU 


$3E 


BFRS+1 


EQU 


$3F 


PCVAL 


EQU 


$40 



* DEFAULT CASSETTE DECK: 
* 

*CASS EQU $FC50 CASS1 

CASS EQU $FC60 CASS2 
* 

* OVERLAY MINI-ASSEMBLER 

ORG $FDA1 



* 
* 



GOT HERE FROM $FC34 
ME TSTL 

T COMMAND - TRANSFER CASS BUF 
PTRS -> EDIT BUF PTRS 



TSTL 



LDX 

STX 

LDX 

STX 

LDX 

STX 

ERA 

CMPA 

BNE 



BFRPTR 

BUFADR 

BFRSZE 

BUFFLO 

BUFEND 

BUFFHI 

DSPBUF 

= 'L' 

TSTS 



BEG OF CASS BUF 
END OF CASS BUF 
END OF EDIT BUF 
GO DISPLAY PTRS 



CASSETTE LOAD 
PARKS GET PARKS 



RDBLK 
DSPBUF 
= 'S' 
SCOM 
DEBUG 



READ CASS BLOCK 
GO DISLAY PTRS 



BAD C0M4MD - EXIT 



* L COMMAND - 

BSR 

JSE 

BRA 

TSTS CMPA 

BEQ 

JMP 
* 

* S COMMAND - 
SCOM LDX 

STX 

LDX 

BSR 

JSR 
* 

* DISPLAY BEG & END OF BUF PTRS 
DSPBUF LDAA =$7C MOVE CURSOR 

STAA CSRP+1 JUST BELOW STATUS 



CASSETTE SAVE 

BUFADR DEFAULT IS TO 

USE EDIT BUFFER 

POINTERS 

GET PARMS 

WRITE CASS BLOCK 



BFRPTR 
EUFFLO 
PARM1 
V/RTELK 
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0001 
0002 
0003 
0004 
0005 
0C06 
0007 
0008 

COOS 
0010 
0011 



0200 

EEE2 ED EC37 
EED5 7E EC3D 

EED8 
EED8 



* 
* 
* 

* 



OVERLAY CTRL-T COMMAND IK 
DEEUGGER (M>W CLEARS SCREEK) 



ORG $EED2 



CLRSCK 

HOME 
CLEAR 



JSR 
JMP 

EQU 
EQU 



HOME 
CLEAR 

$EC37 
$EC3D 
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0059 


FDD2 


DE 3E 






LDX 


BFRSZE 


GET END OF BUF 


0060 


FDD4 


3D OE 






BSR 


DSPHEX 


AND DISPLAY 


0061 


FDD6 


36 77 






LDAA 


=$77 


MOVE TO THE LEFT 


0062 


FDD3 


97 1D 






STAA 


CSRP+1 




0063 


FDDA 


DE 3C 






LDX 


BFRPTR 


GET BEG OF BUF 


0064 






* 


NOTE: 


LEAVES PCVAL 


WITH 


0065 






* 


BUF BEGINNING FOR EXECUTE 


0066 


FDDC 


3D 06 






BSR 


DSPHEX 


DISPLAY BUF BEG 


0067 


FDDE 


BD FC37 


RETHOM 


JSR 


HOME 




0068 


FDE1 


7E FC18 






JMP 


EXEC1 


RET TO BEG OF LINE 


0069 






* 










0070 






* 


DISPLAY 2 HEX DIGITS IN X 


0071 






* 


(NOTE 


:: DESTROYS PCVAL) 


0072 


FDE4 


DF 40 


DSPHEX 


STX 


PCVAL 




0073 


FDE6 


7E FEFC 






JMP 


PNTDIG 




0074 






* 










0075 






* 


GET FARMS FOR CASSETTE L/S 


0076 


FDEO 


7F 0033 


PAEMS 


CLR 


BLKNAK 


DEFAULT NAME 


0077 


FDEC 


CE 0200 






LDX 


=$200 




0073 


FDEF 


DF 3C 






STX 


BFRPTR 


DEFAULT BUF BEG 


0079 


FDF1 


DF 3E 


PARM1 


STX 


BFRSZE 




0080 


FDF3 


CE F060 






LDX 


=CASS 


DEFAULT CASS ACIA 


0081 


FDF6 DP 33 






STX 


ACIMO 




0082 


FDF8 


97 3A 






STAA 


NOPRNT 


DISPLAY STATUS 


0083 


FDFA 


BD FCA5 






JSR 


RTARRO 


MOVE OVER ONE SPACE 


0084 


FDFD 


DF 24 






STX 


SCNPTR 


SAVE BEG OF PARMS 


0085 






* 










0086 


FDFF 


BD FC4A 


PLOOP 


JSR 


GETCHR 




0087 


FE02 


81 13 






CMPA 


=$13 


CTRL-X (CANCEL) 


0083 


FE04 


26 04 






BNE 


PEDIT 




0089 


FE06 


31 






INS 






0090 


FE07 


31 






INS 






0091 


FE08 20 D4 






BRA 


RETHOM 


BACK TO BEG OF LINE 


0092 


FEOA 


BD FC8F 


PEDTT 


JSR 


INSERT 


CALL EDITOR 


0093 


FEOD 


81 1B 






CMPA 


=$1B 


ESCAPE (DONE) 


0094 


FEOF 26 EE 






ME 


PLOOP 




0095 






* 










0096 


FE11 


DE 24 






LDX 


SCNPTR 


GET BEG OF STRING 


0007 


FE13 


A6 00 






LDAA 


0,X 


GET 1ST CHAR OF NAME 


0093 


FE15 


31 60 






CMPA 


=$60 


NO NAME? 


00^9 


FE17 27 1E 






BEQ 


PEXIT 




0100 


FE19 


97 33 






STAA 


BLKN AM 




0101 


FE1B 


03 






INX 






0102 


FE1C 


A6 00 






LDAA 


C,X 


GET 2ND CHAR OF NAME 


0103 


FE1E 


97 34 






STAA 


ELXN+1 




0104 


IE20 


08 






INX 






0105 






* 










0106 


FE21 


3D 17 






BSR 


GETONE 


GET BEG ADDR 


0107 


FE23 


27 04 






BEQ 


GETEND 


NONE SPECIFIED 


0103 


FE25 


D7 3C 






STAB 


BFRPTR 




0109 


FE27 


97 3D 






STAA 


BFRP+1 




0110 






-* 










0111 


FE29 


8D OF 


GET END 


BSR 


GETONE 


GET END ADDR 


0112 


FE2B 27 04 






BEQ 


GETDCK 


NONF SPECIFIED 


0113 


FE2D 


D7 3E 






STAB 


BFRSZE 




0114 


FE2F 


97 3F 






STAA 


BFRS+1 




0115 






* 










0116 






* 
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0117 


FE31 


8D 07 


GETDCK 


BSR 


GETOKE 


GET DECK # 


0113 


FE33 


27 02 




BEQ 


PEXIT 


NONE SPECIFIED 


0119 


FE35 


97 39 




STAA 


ACIA+1 


STORE LOW BYTE 


0120 


FE37 


7E FBOO 


PEXIT 


JMP 


INTLZ 


INIT ACIA & RET 


0121 






* 








0122 






* GET ONE PARAMETER 




0123 


FE3A 


A6 CO 


GETONE 


LDAA 


0,X 


GET CHAR 


0124 


IE3C 


81 60 




CMPA 


=$60 




0125 


FE3E 27 09 




BEQ 


GEXIT 


END OF STRING 


0126 


FE40 


08 




INX 






0127 


FE41 


DF 24 




STX 


SCNPTR 


SKIP PAST DELIMITER 


0123 


FE43 


ED IF22 




JSR 


ASCBIN 


GET HEX # 


0129 


FE46 


09 




VEX 






0130 


FE47 


9C 24 




CPX 


SCNPTR 


RET = IF NO PARM 


0131 


FE49 


39 


GEXIT 


RTS 






0132 






# 








0133 


FE4A 




INTLZ 


EQU 


$FBOO 




0134 


FE4A 




RDBLK 


EQU 


$FB91 




0135 


FS4A 




WRTBLK 


EQU 


$FB2D 




0136 


FE4A 




RTARRO 


EQU 


$FCA5 




0137 


FE4A 




HOKE 


EQU 


$FC37 




0138 


FE4A 




EXEC1 


EQU 


$FC18 




0139 


FE4A 




DEBUG 


EQU 


$FE64 




0140 


FE4A 




PNTDIG 


EQU 


$FEFC 




0141 


FE4A 




GETCHR 


EQU 


$FC4A 




0142 


FE4A 




INSERT 


EQU 


$FC8F 




0143 


FE4A 




ASCBIN 


EQU 


$FF22 





